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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


TH OFTWARE IS ai UNDER A LICENSE AND MAY BE USED AND corres 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE Spittal NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onepohatitn. © NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY 

> ABSTRACT: 

: This module contains a routine (BOOSREADPROMPT) which writes a 
3 prompt Line and reads a Line of input from the console terminal 
; us ing Q10s. Either writing the prompt Line or reading the input Line 

3 may be bypassed. 

: ENVIRONMENT: User mode 

> AUTHOR: STEVE BECKHARDT, CREATION DATE: 27-Sep-1979 

> MODIFIED BY: 


v03-002 KDM0090 Kathleen D. Morse 01-Dec-1983 
Make psect word age 


v03-001 JLV0134 


ie 31-Dec-1981 
Add routine RosouTPuT. ALIN 
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iv -000 DECLARATIONS Fae ett 1 $3i0e ib Yaoore: SRC JREADPRMPT .MAR; 1 . (3) 
09 § -SBTTL DECLARATIONS 
0 4 : INCLUDE FILES: 
| 3 > 3 
3 i 
$00 MACROS 
4 § ; 
4 60 
000 61 ; 
000 6¢ 3; EQUATED SYMBOLS: 
$000 
444 65 ; 
000 66 ; OWN STORAGE: 
0000 67 ; 
0000 68 
vane °° $ -PSECT BOOSSYSGEN,WRT,WORD 
0000 71 IOSTBLK: ; 1/0 status block 
00000008 0000 Le; -BLKQ 1 
0008 7 
0008 74 CHANNEL: : Channel 
0000 0008 75 -WORD 0 
000A 76 
QO0A 77 seshtaatat ated ? ; Device name descriptor 
30 41 50 4F SF 00000012'010E0000' 4 re ASCID /_OPAO/ 
0000 0017 80 RIOSGW_OUTLEN:: .WORD 0 
0019 81 RIOSAB_OUTBUF :: 
00000100 0019 Hf -LONG 256 ; Descriptor 
00000021" 001D 8 "CON G RIOSAB_BUFFER ; Buffer pointer 
0021 84 RIOSAB_BUFFER:: 
00000121 sf} a2 -BLKB 256 :; Buffer 
00000000 87 -PSECT BOOSREADPROMPT,RD,NOWRT,EXE 
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aa ~SBTTL BOOSREADPROMPT = Prompt and read input string 


3; Functional Description: 
BOOSREADPROMPT putpets the specified ASCIZ prenes string on the 

console terminal then checks the count of characters to be read. 
If zero it exits, otherwise it reads the console terminal until 
either a cerrvege return is encountered or the character count 
is satisfied. he specified buffer is filled with an ASCIC 
string a ne tgbanten the characters read but not including the 
terminating carriage return. 

saaatae Sequence: 
ALL ARGLIST,BOOSREADPROMPT 


t 
( 


COoooooooo 
OOOoceccoa 


Input Parameters: 
PROMPT(AP) = Address of ASCIZ prompt string 
PROMPT 4 


SIZE CAP) - Maximum Length of input string 
SIZE = 8 


er 

AP 

00000004 = 
00000008 
Note: if size is zero, then nothing is read 
and only the prompt string is written. 


BUF (AP) - Address of input buffer 
BUF = 12 


0000000C 
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Output Parameters: 
RO - Completion status code 


Buffer located by BUF(AP) will be filled with the string 
read as an ASCIC string. 


Ce Oe Oe Oe Oe Oe ee ee 
4 
4 


OOSREADPROMPT: : 
-WORD “M<R2> 


TSTW W* CHANNEL ; Channel assigned yet? 

BNEQ 10$ 3 Yes 

SASSIGN_S CHAN = W°CHANNEL,- ; No, assign it 
DEVNAM = DSC 


Nama - 
ACMODE = # Allow access from user mode 
BLBC RO,90$ ; Error 


10$: LOCC #0,@°XFFFF,@PROMPT(AP) ; Locate end of prompt string 
SUBL PROMPT (AP) ,R1 ; R1 = size of prompt string 
MOVL  SIZECAP),RO : RO = size of input buffer 


L ; No input buffer 
MOVL BUF (AP) ,R2 : 


R2 = address of input buffer 
$Q10W_S CHAN = W*CHANNEL ,- :; Prompt and read 
UNC = #10$_READPROMPT,- 
w*IOSTBLK,=- 


0004 
OOO8'CF 85 
18 


7350 =€9 


04 BC FFFF 8F O00 3A 
51 O4 AC C 
50 = 08 AC 


Address of input buffer 
Size of input buffer 
Address of erenes buffer 
Size of prompt buffer 


OMPT(AP),- 
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at adtadatadtatatadabatadadababdabatatad dadtadatd at adiaaabadbadadt ad adadadadadatadadadadadadadadad 
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WANA WIMIAIMNEPNIPININY — OSOOOOOSOSS 
MAAN = "FO YOO OOOO MunVroocoe 
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» 


( 
0 
R 
1 
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; Err 
; Get. 1/0 status block 


; Store size of input Line 


; Write prompt string, no input 


Se te te Se 


Address of prompt buffer 
bee - prompt buffer 


Get. 1/0 status block 
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yee BOOSREADPROMPT = Prompt and read input s 4-SEP-1 1384 $3: bg: Wy 
50 €9 A 16 BLB RO 908 
59 0000: ic 2 123 BSyeuL *fOSTBLK,RO 
7 “Cf 6g 148 W*1OSTBLKS2, (R2) 
A 11 6 149 BRB 90$ 
69 184 20$:  $al0w_s CHAN = W*CHANNEL 
069 13¢ FUNC = #10$ WRITEVBLK, ° 
069 15 10S8 = W*IOSTBLK,- 
069 154 Pl = @PROMPT(AP) .- 
0069 155 : of’ 
0550 €9 0088 156 BLBC 
50 oo000'cr  3¢ 008 137 MOVZWL OOS TBLK.RO 
04 0093 159908: RET 
0094 160 
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RIOSOUTPUT_LINE = Output one Line 4-SEP-1984 05:24 ([BOOTS.SRCJREADPRMPT.MAR;1 
es 16 -SBTTL RIOSOUTPUT_LINE = Output one Line 
94 164; 
94 165 ; This routine is in RMSCONIO for SYSGEN, is used here to map STASYSGEN 
34 166 ; calls to this routine into calls to BOOSREADPROMPT. 
94 168 : Inputs: 
94 1 : RIO$SGW_OUTLEN = Length of = to output 
94 170; RIOSAB_BUFFER = buffer to outpu 
94 171 ;- 
094 1% 
8 3 1% RIOSOUTPUT_LINE:: 
7E 51 #470 0094 £«9175 mova R1,-(SP) 3 Save R1,R2 
51 00000017°EF 3c 0097 1% MOVZWL RIOS$GW_OUTLEN,R1 : Set Length 
52 00000021'EF 9E Bee 17 MOVAB RIOSAB_BUFFER,R2 ; Set address 
6241 9E OQOA 178 “-VAB_sO(R2) CRTIJ,R1 ; Set address of end of strin 
61 QOOO0A0D 8F 00 pa? 44 rUVL #*XO0000A0D, (R1) ; Set CR, LF, zero byte at en 
7 7C 0080 181 CLRQ -(SP) 3; Null read buffer 
5 DD 0062 36 PUSHL ; Address of string 
FFFFFFGS EF 0 FB Shes + CALLS #3,L“BOOSREADPROMPT ; Output string 
51 8&€ 7D OOBB ' 185 mova (SP)+,R1 ; Restore R1,R2 
05 OOBE 186 RSB 3; Return 
OOBF 187 
OOBF 188 .END 
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Symbol table 

$$T1 = 00000001 
BOOSREADPROMPT 50 
BuF = 

CHANNEL 

DEVNAM_DSC 

1O$_READPROMPT teeeeeee 
10$_WRITEVBLK serene 
1OSTBLK 90000000 
PR 0000004 
RIOSAB_BUFFER 000021 
RIOSAB_OUTBUF a4 S 
R1O$GW OM 
RIOSOUTPUT 000094 
SIZE = 00000008 
SYSSASSIGN eeereene 
SYS$Q10W eeeereee 


- ABS ., 
BOOSSYSGEN 


Initialization 
Command processing 


Pass 

Symbol table sort 
Pass 2 

Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


4406 byies ( 


The working get Limit was 
There were 10 


188 source Lines were read in Pass 


Page faults 


900 


pages) of virtua . 
pages of symbol table space allocated to hold 16 non-local and 3 local symbols. 
object records in Pass 2. 
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USR CON ABS 
USR CON REL 


NOPIC 
NOPIC 


Gewweeeecoeescen 

: Psect synopsis ! 
Allocation PSECT No. 
00000000 <( 0.) 00 ¢ 
00000121 ( 289.) 01 ¢ 
QOOOOOBF (¢ 191.) 02 ¢ 


pooeesececesesoesocoosoece$ 


CPU Time 
30 00:00:00.09 00: 
128 00:00:00.65 00: 
129 00:00:01.08 00: 
0 00:00:00.01 00: 
48 bs a SS 00: 
3 00:00:00.02 00: 
2 00:00:00.01 00: 
3 Bo 808-89 00: 
34 00:00:02.31 00: 


Soooooooo 
Soooocoeco 
se © @ @ © 

mOOCOCOfca 


NOP IC 


MONMnrvo— W100 


USR CON REL 


RrSee i 8be 83:58:51 


LCL NO 


memory were used to buffer the intermediate code 


» producin 


6 pages of virtual memory were used to define g macros. 


En ee canis 


AX/VMS Macro v04-00 
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roe, 


LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD 
LCL NOSHR' EXE 


WRT NOVEC WORD 
RD NOWRT NOVEC BYTE 
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! Macro Library statistics ! 


ee 


Macro Library name Macros defined 
SSDUA28: SYS 06491 18-ALB; -MLB;1 8 
5$DUA28: (SYS.0B 

$588$DUA 8: aye 183 STARLET.MLB;2 6 

Trace (all Libraries) 6 


70 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:READPRMPT/OBJ=OBJ$:READPRMPT MSRC$:READPRMPT/UPDATE=(ENHS:READPRMPT) +EXECML$/L1IB+L1B$:B00TS.MLB/LIB 
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